home *** CD-ROM | disk | FTP | other *** search
/ The Business Master (3rd Edition) / The Business Master (3rd Edition).iso / files / commadio / easupcis / xteupc2.xts < prev   
Text File  |  1989-09-09  |  3KB  |  87 lines
  1. /*
  2.                 Ease-Up V1.7 INCLUDE file #2 for CROSSTALK Mk.4 v1.1
  3.  
  4.                                       Ease-Up
  5.                               is Copyright (c) 1989 by
  6.                                Simple Solutions, Inc.
  7.                                  All Rights Reserved
  8.  
  9.         This file, XTEUPC2.XTS, and its companion file XTEUPC1.XTS are used
  10.         by the scripts generated by Ease-Up V1.7 and are required for the
  11.         proper operation of those scripts.
  12.  
  13.         The files are 'include' files and are included into and compiled with
  14.         the Ease-Up generated scripts. Their location in the generated script
  15.         file is important, so if for some reason you decide to make any changes
  16.         to the generated code keep this in mind.
  17.  
  18.         The XTALK4 Reference Manual states in its notes on the INCLUDE statement
  19.         that the XTPATH path is not searched for include files. I've found that
  20.         this is not the case, and source files on the XTPATH are included. In
  21.         any case, these files must be available to XTALK4 in order for the
  22.         generated scripts to compile. Keeping the generated scripts and the
  23.         include files together in the same subdirectory will take care of it.
  24.         You should refer to your XTALKK4 manuals for the details of how include
  25.         files are handled.
  26. */
  27.  
  28. ; confirm upload
  29.     wait 30 seconds for 'Y or N)?'
  30.     W5R "Y"
  31.  
  32. /*
  33.  * all done -- clean up then exit
  34.  *
  35.  */
  36.  
  37.     label DONE
  38.          answerback = answbak_sav : ; restore answerback
  39.          alarm 4 : alarm 4        : ; wake up, we're done
  40.          shut #wn                 : ; free the error window
  41.          END
  42.  
  43.     label ERROR_HDLR
  44.         case err_num of
  45.  
  46.             1  : {
  47.                     alarm 7
  48.                     print #wn,' That LIB not authorized...'
  49.                     show #wn
  50.                     wait 4 seconds for key 27
  51.                     hide #wn
  52.                     jump DONE
  53.                  }
  54.             2  : {
  55.                     alarm 7
  56.                     print #wn,' ERROR: Unrecognized command'
  57.                     print #wn,'        or forum name...'
  58.                     show #wn
  59.                     wait 4 seconds for key 27
  60.                     hide #wn
  61.                     jump DONE
  62.                  }
  63.             11 : {
  64.                     alarm 7
  65.                     print #wn,' Forum closed...'
  66.                     show #wn
  67.                     wait 4 seconds for key 27
  68.                     hide #wn
  69.                     jump DONE
  70.                  }
  71.             12 : {
  72.                     alarm 7
  73.                     print #wn,' That Forum does not exist...'
  74.                     show #wn
  75.                     wait 4 seconds for key 27
  76.                     hide #wn
  77.                     jump DONE
  78.                  }
  79.         endcase
  80.  
  81.     label TRACKER
  82.         if track(1) then err_num = 1 : ...
  83.                             jump ERROR_HDLR
  84.         if track(2) then err_num = 2 : ...
  85.                             jump ERROR_HDLR
  86.  
  87.